home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CADAR / Symbols / Random / random-outside < prev    next >
Lisp/Scheme  |  1998-10-22  |  316b  |  15 lines
  1. random-outside melody how-much-outside
  2. &key (seed nil)
  3.  
  4. Takes a symbol-list and makes a new 
  5. symbol-list by randomly changing symbols
  6. to a maximum of +- how-much-outside.
  7.  
  8. (setq melo '(a b c d c g f b))
  9.  
  10. (random-outside melo 1 :seed 0.99)
  11. ->(b b b c b h f b)
  12.  
  13. (random-outside melo 3 :seed 0.88)
  14. ->(c d b f f d g -b)
  15.